; Music of Dark Power (1989) (Black System)
; Ripped by Megachur the 27/11/2006

	write "DARKPOWE.BIN"

music_date_rip	equ &1bb6
music_adr	equ &8eee
first_theme	equ 0
last_theme	equ 0	; 0 -> 0

	read "music_header_v1_0.asm"

;	org #8ee0
;	db #06,#02,#01,#18,#17,#08,#0a,#09
;	db #0f,#10,#12,#1a,#0e,#03
	
;
.init_music
;
	ld a,#01
	ld hl,l9123
	call #bcbc
	ld a,#01
	ld hl,l912d
	call #bcbf
	ld a,#02
	ld hl,l9134
	call #bcbc
	ld a,#02
	ld hl,l9138
	call #bcbf
	ld a,#03
	ld hl,l913f
	call #bcbc
	ld a,#03
	ld hl,l9146
	call #bcbf
	ld a,#04
	ld hl,l914d
	call #bcbc
	ld a,#05
	ld hl,l9154
	call #bcbc
	ld a,#06
	ld hl,l9158
	call #bcbc
	ld a,#07
	ld hl,l9162
	call #bcbc
	ld a,#05
	ld (l911e),a
	ld hl,(l9169)
	ld (l9121),hl
	ld hl,l916b
	ld (l911f),hl
	ld hl,l910f
	ld bc,#8100
	ld de,l8f5b
	jp #bcd7
;
.play_music
.l8f5b
;
	di
	push af
	push de
	push hl
	push bc
	push ix
	push iy
	ld hl,#bcaa
	ld (hl),#cf
	call l8f77
	pop iy
	pop ix
	pop bc
	pop hl
	pop de
	pop af
	ei
	reti
.l8f77
	ld a,(l911e)
	dec a
	cp #00
	jp z,l8f84
	ld (l911e),a
	ret
.l8f84
	ld hl,(l9121)
	dec hl
	ld a,h
	or l
	jp z,l8fbf
	ld (l9121),hl
	ld b,#03
	ld ix,(l911f)
.l8f96
	push bc
	push ix
	ld de,#0001
	ld a,(ix+#00)
	cp #00
	jp z,l8faa
	call l9007
	ld de,#0005
.l8faa
	pop ix
	pop bc
	add ix,de
	djnz l8f96
	ld a,(ix+#00)
	inc a
	ld (l911e),a
	inc ix
	ld (l911f),ix
	ret
.l8fbf
	ld hl,l916b
	ld (l911f),hl
	ld hl,(l9169)
	ld (l9121),hl
	ld a,#01
	ld (l911e),a
	ret
.l8fd1
	ld a,#0f
	ld iy,l9052
	jp l8fec
.l8fda
	ld a,#0f
	ld iy,l905b
	jp l8fec
.l8fe3
	ld a,#0f
	ld iy,l907f
	jp l8fec
.l8fec
	push af
	push ix
	push iy
	ld (iy+#06),a
	call l9030
	pop iy
	pop ix
	pop af
	dec a
	cp #09
	jp nz,l8fec
	ld (iy+#06),#0f
	ret
.l9007
	ld a,(ix+#00)
	or a
	ret z
	ld a,(ix+#04)
	cp #10
	jp z,l8fd1
	cp #11
	jp z,l8fda
	cp #13
	jp z,l8fe3
	ld iy,l9052
.l9022
	dec a
	cp #00
	jp z,l9030
	ld de,#0009
	add iy,de
	jp l9022
.l9030
	ld a,(ix+#00)
	ld (iy+#00),a
	ld a,(ix+#01)
	ld (iy+#03),a
	ld a,(ix+#02)
	ld (iy+#04),a
	ld a,(ix+#03)
	ld (iy+#07),a
	ld (iy+#08),#00
	push iy
	pop hl
	jp #bcaa
.l9052
	db #00,#01,#00,#00,#00,#00,#0f,#00
.l905b equ $ + 1
	db #00,#00,#02,#00,#00,#00,#05,#0f
	db #00,#00,#00,#03,#00,#00,#00,#00
	db #0f,#00,#00,#00,#04,#00,#00,#00
	db #00,#0f,#00,#00,#00,#02,#00,#00
.l907f equ $ + 5
	db #00,#00,#0f,#00,#00,#00,#02,#00
	db #00,#00,#0f,#0f,#00,#00,#00,#02
	db #00,#00,#00,#19,#0f,#00,#00,#00
	db #05,#00,#00,#00,#05,#0f,#00,#00
	db #00,#05,#00,#00,#00,#0f,#0f,#00
	db #00,#00,#05,#00,#00,#00,#0f,#0f
	db #00,#00,#00,#05,#00,#00,#00,#00
	db #0f,#00,#00,#00,#03,#01,#00,#00
	db #00,#0f,#00,#00,#00,#06,#00,#00
	db #00,#01,#00,#00,#00,#00,#00,#02
	db #00,#00,#00,#0c,#00,#00,#00,#03
	db #02,#00,#00,#00,#0f,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#02,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#03,#03,#00,#00
	db #00,#00,#00,#00,#00,#07,#00,#00
.l910f equ $ + 5
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l9121 equ $ + 7
.l911f equ $ + 5
.l911e equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#00
.l9123 equ $ + 1
	db #00,#03,#01,#00,#0a,#0a,#ff,#01
.l912d equ $ + 3
	db #01,#00,#0a,#82,#14,#01,#01,#14
.l9138 equ $ + 6
.l9134 equ $ + 2
	db #ff,#01,#01,#0f,#ff,#02,#82,#03
.l913f equ $ + 5
	db #01,#03,#03,#ff,#03,#02,#0a,#ff
.l9146 equ $ + 4
	db #08,#05,#ff,#04,#03,#50,#01,#01
.l914d equ $ + 3
	db #14,#02,#01,#02,#10,#02,#01,#0f
.l9158 equ $ + 6
.l9154 equ $ + 2
	db #ff,#01,#01,#0f,#ff,#01,#03,#01
	db #0a,#01,#01,#00,#04,#05,#fe,#01
.l9169 equ $ + 7
.l9162
	db #02,#01,#0f,#05,#0a,#ff,#02,#cb
.l916b equ $ + 1
	db #00,#04,#3f,#00,#fa,#0c,#00,#00
	db #26,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#3f,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#3f,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#1c,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#3f
	db #00,#14,#10,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#00,#00
	db #14,#0d,#00,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#3f,#01
	db #14,#05,#00,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#be,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#02,#a9
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#7b,#01
	db #14,#0b,#04,#9f,#00,#f5,#0f,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#3f,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#47
	db #00,#14,#10,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#00,#00
	db #14,#0d,#00,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#1c,#01
	db #14,#05,#00,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#a9,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#02,#9f
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#7b,#01
	db #14,#0b,#04,#8e,#00,#f5,#0f,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#3f,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#3f,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#50
	db #00,#14,#10,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#00,#00
	db #14,#0d,#04,#00,#00,#14,#11,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#1c,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#47
	db #00,#14,#10,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#00,#00
	db #14,#0d,#04,#00,#00,#14,#11,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#3f,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#3f
	db #00,#14,#10,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#00,#00
	db #14,#0d,#04,#00,#00,#14,#11,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#3f,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#1c,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#a9
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#02,#a9,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#a9
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#d5,#00,#14,#01,#00
	db #09,#01,#3f,#01,#14,#05,#04,#be
	db #00,#96,#0f,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#be,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#0b,#02,#be
	db #00,#14,#01,#00,#09,#01,#00,#00
	db #14,#0d,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#be,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#d5
	db #00,#14,#01,#00,#09,#01,#3f,#01
	db #14,#05,#02,#be,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#a9
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#02,#a9,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#a9
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#d5,#00,#14,#01,#00
	db #09,#01,#1c,#01,#14,#05,#04,#be
	db #00,#96,#0f,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#be,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#0b,#02,#be
	db #00,#14,#01,#00,#09,#01,#00,#00
	db #14,#0d,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#be,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#9f
	db #00,#14,#01,#00,#09,#01,#3f,#01
	db #14,#05,#02,#be,#00,#14,#10,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#3f,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#1c,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#be
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#02,#be,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#9f
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#a9,#00,#14,#01,#00
	db #09,#01,#3f,#01,#14,#05,#02,#be
	db #00,#14,#01,#04,#00,#00,#14,#11
	db #09,#01,#7b,#01,#14,#02,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#02,#d5
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#05,#02,#d5,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#0b,#02,#d5
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#05,#04,#be,#00,#50,#0f,#00
	db #09,#01,#3f,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#a9
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#02,#a9,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#8e
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#9f,#00,#14,#01,#00
	db #09,#01,#1c,#01,#14,#05,#02,#a9
	db #00,#14,#01,#04,#00,#00,#14,#11
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#0b,#00,#00
	db #09,#01,#00,#00,#14,#0d,#02,#9f
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#05,#02,#a9,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#0b,#02,#9f
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#05,#04,#be,#00,#50,#0f,#00
	db #09,#01,#3f,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#5f
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#02,#5f,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#5f
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#6a,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#05,#02,#6a
	db #00,#14,#01,#00,#09,#01,#3f,#01
	db #14,#05,#02,#77,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#05,#04,#77
	db #00,#14,#10,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#00,#00
	db #14,#0d,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#d5,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#0b,#02,#d5
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#05,#00,#00,#09,#01,#1c,#01
	db #14,#05,#02,#be,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#05,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#54
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#02,#54,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#7b,#01,#14,#05,#02,#50
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#0b,#00,#00,#09,#01,#7b,#01
	db #14,#05,#02,#54,#00,#14,#01,#00
	db #09,#01,#3f,#01,#14,#05,#02,#5f
	db #00,#14,#01,#00,#09,#01,#7b,#01
	db #14,#05,#02,#54,#00,#14,#01,#00
	db #09,#01,#7b,#01,#14,#05,#02,#5f
	db #00,#16,#10,#04,#00,#00,#14,#11
	db #f8,#00,#00,#00
;
.game_name
	db "Dark Power",0
.game_year
	db "1989",0
.game_publisher
	db "Black System",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
